From: Kim F. Storm <storm@cua.dk>
Date: Thu, 24 Jun 2004 22:03:10 +0000 (+0000)
Subject: (Fmapconcat, Fmapcar): Remove superfluous GCPROs.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~21835
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9aeab6b1516ef58247b5cbec574e5f106cd4a1a8;p=emacs.git

(Fmapconcat, Fmapcar): Remove superfluous GCPROs.
---

diff --git a/src/fns.c b/src/fns.c
index 7e84b775fbb..693f3eaaa93 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -3020,11 +3020,7 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string.  */)
   for (i = 1; i < nargs; i += 2)
     args[i] = separator;
 
-  GCPRO1 (*args);
-  gcpro1.nvars = nargs;
   ret = Fconcat (nargs, args);
-  UNGCPRO;
-
   SAFE_FREE_LISP (nargs);
 
   return ret;
@@ -3040,7 +3036,6 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string.  */)
   register Lisp_Object len;
   register int leni;
   register Lisp_Object *args;
-  struct gcpro gcpro1;
   Lisp_Object ret;
   USE_SAFE_ALLOCA;
 
@@ -3051,11 +3046,7 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string.  */)
 
   mapcar1 (leni, args, function, sequence);
 
-  GCPRO1 (*args);
-  gcpro1.nvars = leni;
   ret = Flist (leni, args);
-  UNGCPRO;
-
   SAFE_FREE_LISP (leni);
 
   return ret;